10 IFI=0THENI=1:LOAD"WORTSCHATZ",8,1
20 DIM BE$(25)
30 DIMIN(26):FORI=1TO26:READIN(I):NEXTI
40 DATA40960,41006,0,41581,41650
50 DATA42018,42110,42317,42501,0
60 DATA42547,42685,0,42823,43007
70 DATA43076,43237,43260,43605,44364
80 DATA44502,44571,45031,0,0,45284
100 REM MODIFIZIERTE PEEK-FUNKTION ---------------------------------------------
101 :
110 DATA32,247,183,120,169,52,133,1
120 DATA160,0,177,20,168,169,55,133
130 DATA1,88,76,162,179
140 FORI=704TO724:READX:POKEI,X:S=S+X:NEXTI
150 POKE785,192:POKE786,2:REM USR-ZEIGER
160 IFS<>2325THENPRINT"FEHLER IN DATAS[160]!":END
200 GOSUB50000
210 PRINT"VE="VE:PRINT"O1="O1:PRINT"O2="O2:PRINT"AD="AD:PRINT"RI="RI
230 GOTO200
50000 REM *************************
50001 REM *                       *
50002 REM *    WORT-PARSER 5.0    *
50003 REM *                       *
50004 REM *     <C> 1986 BEI      *
50005 REM *                       *
50006 REM *    MICHAEL NICKLES    *
50007 REM *                       *
50008 REM *************************
50010 REM BEFEHLSEINGABE -------------------------------------------------------
50011 :
50015 J1=1:J2=10:J3=198:J4=54276:J5=54277:J6=203:J7=3000:J8=2:J9=20:J0=54273
50016 K1=54272:K2=89:K3=129:K4=47:K5=57:K6=65:K7=90:K8=32:K9=34:K0=44
50017 PRINT
50019 POKE54296,15:REM UND ABFRAGEN
50020 TT=.: REM INPUT-INTERRUPT-ZAEHLER
50030 FORI=J1TOJ2:BE$(I)="":NEXT:POKEJ3,.:BE$="": REM SATZ LOESCHEN
50040 PRINT"[158]>";:PRINT"[164]";
50050 POKEJ4,.:POKEJ5,.:GETX$:II=PEEK(J6):IFTT<J7THEN50060:REM TT=TT+1 !!!!
50055 FORI=1TOLEN(BE$)+J8:PRINTCHR$(J9);:NEXT:VE=0:RETURN
50060 IFX$=""THEN50050
50061 POKEJ5,J1:POKEJ0,J2:POKEK1,K2:POKEJ4,K3
50070 TT=0
50080 IFII=1THENIFBE$<>""THENPRINT"[157].":GOTO50200
50085 I=ASC(X$):IFI>K4ANDI<K5THEN50100
50090 I=ASC(X$):IFI<K6ORI>K7THENIFI<>K8ANDI<>J9ANDI<>K9ANDI<>K0THEN50050
50100 IFI=J9ANDLEN(BE$)=.THEN50050
50110 IFI=J9THENPRINT"[157][157]  [157][157][164]";:BE$=LEFT$(BE$,LEN(BE$)-J1):GOTO50050
50120 BE$=BE$+CHR$(I):IFLEN(BE$)>78THENBE$=LEFT$(BE$,78):GOTO50050
50125 IFI=K9THENI=64
50130 PRINT"[157]";CHR$(I);"[164]";:GOTO50050
50200 REM CODIERUNG ------------------------------------------------------------
50201 :
50250 REM WORT IM RAM SUCHEN *******
50254 I$=BE$
50255 IM=ASC(LEFT$(I$,1)):I=IN(IM-64)
50262 REM BEGIN LOOP           <<<
50264 :IF IM<>USR(I)THEN 50280
50265 :FORI1=1TOLEN(I$):PRINTMID$(I$,I1,1),CHR$(USR(I+I1-1))
50270 : IFASC(MID$(I$,I1,1))<>USR(I+I1-1)THENI1=LEN(I$):GOTO50276
50273 : IFI1=LEN(I$)ANDUSR(I+21)=3THENOB=USR(I+22):OM=OB:PRINT"OBJEKT="OB:END
50274 : IFI1=LEN(I$)ANDUSR(I+21)=2THENRI=USR(I+22):PRINT"RICHTUNG="RI:END
50275 : IFI1=LEN(I$)ANDUSR(I+21)=1THENVE=USR(I+22):PRINT"VERB="VE:END
50276 :NEXTI1
50278 I=I+23:GOTO50264
50280 REM END LOOP             <<<
50290 PRINT"ICH KENNE DAS WORT "BE$" NICHT !":END